home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ver.exe / SA_CREAT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-04-28  |  2.8 KB  |  101 lines
  1. VERSION 2.00
  2. Begin Form Form3 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Create Disk"
  5.    ClientHeight    =   3810
  6.    ClientLeft      =   1740
  7.    ClientTop       =   2175
  8.    ClientWidth     =   3750
  9.    Height          =   4215
  10.    Icon            =   SA_CREAT.FRX:0000
  11.    Left            =   1680
  12.    LinkTopic       =   "Form3"
  13.    ScaleHeight     =   3810
  14.    ScaleWidth      =   3750
  15.    Top             =   1830
  16.    Width           =   3870
  17.    Begin Version Version1 
  18.       ApplicationDir  =   ""
  19.       CurrentDir      =   ""
  20.       DestinationDir  =   ""
  21.       DestinationFile =   ""
  22.       Filename        =   ""
  23.       Height          =   420
  24.       Left            =   3120
  25.       SourceDir       =   ""
  26.       SourceFile      =   ""
  27.       Top             =   3240
  28.       Width           =   420
  29.    End
  30.    Begin CommandButton Command2 
  31.       Caption         =   "Cancel"
  32.       Height          =   375
  33.       Left            =   2280
  34.       TabIndex        =   5
  35.       Top             =   720
  36.       Width           =   1215
  37.    End
  38.    Begin CommandButton Command1 
  39.       Caption         =   "OK"
  40.       Default         =   -1  'True
  41.       Height          =   375
  42.       Left            =   2280
  43.       TabIndex        =   4
  44.       Top             =   240
  45.       Width           =   1215
  46.    End
  47.    Begin DirListBox Dir1 
  48.       Height          =   1380
  49.       Left            =   240
  50.       TabIndex        =   2
  51.       Top             =   2160
  52.       Width           =   1815
  53.    End
  54.    Begin DriveListBox Drive1 
  55.       Height          =   315
  56.       Left            =   240
  57.       TabIndex        =   0
  58.       Top             =   1440
  59.       Width           =   1815
  60.    End
  61.    Begin Label Label2 
  62.       Caption         =   "Select a drive and directory to place the setup files in.  Then press OK."
  63.       Height          =   855
  64.       Left            =   240
  65.       TabIndex        =   6
  66.       Top             =   240
  67.       Width           =   1815
  68.    End
  69.    Begin Label Label1 
  70.       Caption         =   "Directory:"
  71.       Height          =   255
  72.       Left            =   240
  73.       TabIndex        =   3
  74.       Top             =   1920
  75.       Width           =   1215
  76.    End
  77.    Begin Label Label4 
  78.       Caption         =   "Drive:"
  79.       Height          =   255
  80.       Left            =   240
  81.       TabIndex        =   1
  82.       Top             =   1200
  83.       Width           =   1215
  84.    End
  85. Option Explicit
  86. Sub Command1_Click ()
  87.     Dim Path As String
  88.     Screen.MousePointer = 11
  89.     DoEvents
  90.     Path = Dir1.Path
  91.     If (Left$(Path, 1) <> "\") Then Path = Path & "\"
  92.     SaveSetup (Path & "SETUP.INF")
  93.     Screen.MousePointer = 0
  94. End Sub
  95. Sub Command2_Click ()
  96.     Unload Form3
  97. End Sub
  98. Sub Drive1_Change ()
  99.     Dir1.Path = Drive1.Drive
  100. End Sub
  101.